program testWhileDoNested;

class testWhileDoNested

BEGIN
   
VAR bb, cc, dd : integer;

FUNCTION testWhileDoNested;

BEGIN   
   cc := 0;
   dd := 1;
   bb := 0;
   
   WHILE cc < 7 DO
   BEGIN
      cc := cc + 1;
      WHILE dd < 5 DO
      BEGIN
	 dd := dd * 2;
	 bb := bb + 3
      END
   END
      
END

END
.

